﻿<%
'********************************************************************************
'函数名:WindsPhoto_FixMetaStr
'功  能:计算带有中文的字符串的长度，中文算两个字符。修正aspjpeg编辑Meta数据含有中文出错的bug
'参  数:字符串
'返  回:字符串+补齐字符串长度的字符0000000
'********************************************************************************
Function WindsPhoto_FixMetaStr(Str)
	Dim oRegExp,s,t,Num,i
	If Len(Trim(str)) = 0 Then Exit Function
	Set oRegExp = new RegExp
	oRegExp.IgnoreCase = True
	oRegExp.Global = True
	oRegExp.Pattern = "[\uff00-\uffff\u4e00-\u9fa5\ufe10-\ufe1f\ufe30-\ufe4f\u1100-\u11ff\u2600-\u26ff\u2700-\u27bf\u2800-\u28ff\u3300-\u33ff\u3200-\u32ff\ua490-\ua4cf\ua000-\ua48f\u3130-\u318f\uac00-\ud7af\u31f0-\u31ff\u30a0-\u30ff\u3040-\u309f\u31a0-\u31bf\u3100-\u312F\u2FF0-\u2FFF\u2F00-\u2FDF\u31c0-\u31ef\u3000-\u303f\u2e80-\u2eff\uff00-\uffef]"
	s = oRegExp.Replace(Str, "xx")
    Set oRegExp=Nothing
    Num = Len(s) - Len(Str)
    For i = 1 to Num
		t = t&"0"
    Next
	WindsPhoto_FixMetaStr = Str&t
End Function

'获取EXIF里的GPS信息，优先读取自定义IPTC，需要先set Info
Function WindsPhoto_Geocode
	CustomLat = Info("IptcCustom11")
	CustomLng = Info("IptcCustom12")
	LatSplit = Split(Info("GPSLatitude"),":")
	LngSplit = Split(Info("GPSLongitude"),":")
	If CustomLat<>"" Then
		Latitude = CustomLat
		Longitude = CustomLng
	ElseIf Info("GPSLatitude")<>"" Then
		Latitude = LatSplit(0) + LatSplit(1)/60 + LatSplit(2)/3600
		Longitude = LngSplit(0) + LngSplit(1)/60 + LngSplit(2)/3600
	End If
End Function

'兼容nobirdarticleseo插件，替换tagtoname标签为IPTC关键词，替换nobird/article/seo标签为图片描述
Function WindsPhoto_SEO(ByRef aryTemplateTagsName,ByRef aryTemplateTagsValue)
	If IptcKeywords<>"" Then aryTemplateTagsValue(46) = IptcKeywords Else aryTemplateTagsValue(46) = name
	Dim c:c=UBOUND(aryTemplateTagsName)
	aryTemplateTagsValue(c) = TransferHTML(jj,"[html-format][nohtml]")
End Function
%>